Voorbeeld van de functie DatePart

Dit voorbeeld neemt een datum en geeft, met behulp van de functie DatePart, weer in welk kwartaal van het jaar deze valt.

Dim TheDate As Date    ' Declare variables.
Dim Msg    
TheDate = InputBox("Voer een datum in:")
Msg = "Kwartaal: " & DatePart("k", TheDate)
MsgBox Msg